with Ada.Text_Io; use Ada.Text_Io;
with Ada.Integer_Text_Io; use Ada.Integer_Text_Io;

procedure Suite is
   N : Integer;

   function Recurs(N: Integer) return Integer is
   begin
      if N = 0 then
         return 1;
      else if N = 1 then
         return 3 ;
      else
         return Recurs(N-1)+Recurs(N-2);
      end if;
      end if;
   end Recurs;



begin

   Put("Donner n un entier >1 : > ");
   Get(N);
   New_Line;
   N := Recurs(N);
   Put_Line("le résultat Un :"&Integer'Image(N));

end Suite;

